home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Programming / Programming Tools / XCMDs / sendPort.p < prev    next >
Encoding:
Text File  |  1987-08-17  |  2.2 KB  |  98 lines  |  [TEXT/ttxt]
  1. {$R-}
  2.  
  3. (*
  4.     sendSPort portNumber, addLFs, string -- Send a string to the serial port driver.
  5.     By Harry Chesley.  DO NOT call the author!  Contact Apple Developer 
  6.     Support on AppleLink "MacDTS" or on MCI "MacTech".
  7.  
  8.     ©Apple Computer, Inc. 1987
  9.     All Rights Reserved.
  10.  
  11.     To compile and link this file using Macintosh Programmer's Workshop,
  12.  
  13.     pascal -w sendPort.p
  14.     link -m ENTRYPOINT -o HyperTerm -rt XCMD=2 -sn Main=sendSPort sendPort.p.o "{MPW}"Libraries:interface.o
  15.     
  16. *)
  17.  
  18. {$S sendSPort }     { Segment name must be the same as the command name. }
  19.  
  20. unit DummyUnit;
  21.  
  22. interface
  23.  
  24. uses MemTypes, QuickDraw, OSIntf, HyperXCmd;
  25.  
  26. procedure EntryPoint(paramPtr: XCmdPtr);
  27.     
  28. implementation
  29.  
  30. const
  31.  
  32. return = 13;
  33. linefeed = 10;
  34.  
  35. type
  36.  
  37. Str31 = String[31];
  38.  
  39. procedure sendSPort(paramPtr: XCmdPtr); forward;
  40.  
  41. procedure EntryPoint(paramPtr: XCmdPtr);
  42.  
  43.     begin
  44.         sendSPort(paramPtr);
  45.     end;
  46.  
  47. procedure sendSPort(paramPtr: XCmdPtr);
  48.  
  49.     var portNumber: integer;
  50.         outPort: integer;
  51.         sendLFs: boolean;
  52.         str: Str255;
  53.         p: Ptr;
  54.         l: longInt;
  55.         linefeedByte: SignedByte;
  56.  
  57.     {$I XCmdGlue.inc}
  58.  
  59.     procedure Fail(errMsg: Str255); { set theResult and quit }
  60.         begin
  61.             paramPtr^.returnValue := PasToZero(errMsg);
  62.             exit(sendSPort);
  63.         end;
  64.  
  65.     begin
  66.         if paramPtr^.paramCount <> 3 then Fail('parameter count is not 3');
  67.  
  68.         ZeroToPas(paramPtr^.params[1]^,str);        { First parameter is port number. }
  69.         portNumber := StrToNum(str);
  70.         if (portNumber < 1) or (portNumber > 2) then Fail('invalid port number');
  71.         ZeroToPas(paramPtr^.params[2]^,str);        { Third parameter is whether to wait. }
  72.         sendLFs := false;
  73.         if length(str) > 0 then
  74.             if (str[1] = 't') or (str[1] = 'T') then sendLFs := true;
  75.         HLock(paramPtr^.params[3]);
  76.         p := paramPtr^.params[3]^;        { Second parameter is string to send. }
  77.  
  78.         if portNumber = 1 then outPort := -7
  79.         else outPort := -9;
  80.         linefeedByte := linefeed;
  81.         while p^ <> 0 do
  82.             begin
  83.                 l := 1;
  84.                 if FSWrite(outPort,l,p) <> noErr then Fail('FSWrite failed');
  85.                 if l <> 1 then Fail('not all characters sent');
  86.                 if sendLFs and (p^ = return) then
  87.                     begin
  88.                         l := 1;
  89.                         if FSWrite(outPort,l,@linefeedByte) <> noErr then Fail('FSWrite failed');
  90.                         if l <> 1 then Fail('not all characters sent');
  91.                     end;
  92.                 p := ptr(ord4(p)+1);
  93.             end;
  94.         HUnlock(paramPtr^.params[3]);
  95.     end;
  96.  
  97. end.
  98.